
♦ 


DECUS NO. 


TITLE 


AUTHOR 


COMPANY 


DATE 


SOURCE LANGUAGE 


8-390 


PALEDCO (PAL ASSEMBLER AND EDITOR COMBINED) 


Paul Fingerman 


Department of Psychology 

State University of New York at Stony Brook 

Stony Brook, New York 

December 1, 1970 


PAL III 


( 


Although this program hos been tested by the contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 



























Note that since control returns to the editor after each pass, an 
error diagnostic can be attended to immediately, and the assembly can 
then be reinitiated. 


Program Operation : Following a high-speed punch command (SR bit 10 s lj type 
Prtr), the editor examines SR bits 0 and 1. If both are 0, it punches. If 
either is 1, it interprets them as an assembly pass number, and transfers 
control to the assembler. 


Summary of new commands and options : 

Editor 


Location 10000 

Bit Setting Function 


0 


0 

1 


Input text as is 

Convert all occurrences of 2 or more spaces 
to a tab 


0 Output each tab as 8 spaces 

1 Output each tab as tab/rubout 


SR options 

Bit Position Function 


0 Output as specified 

1 Cease ongoing output and return to command 

mode 


10 


11 


0 

1 


0 

1 


Low-speed punch and teleprinter 
High-speed punch (also used to indicate 
assembler request in conjunction with 
SR bits 0 and 1 as noted above) 

Low-speed reader 
High-speed reader 


^ ^ Used to indicate desired assembler pass, 

when bit 10 is set and Punch command 
has been given. 
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Assembler (from editor command mode, set SR, type Pfyt and press 

Continue) 

Switch Register Settings 


Pass 

Low-speed 

High-speed 

I 

2002 

2003 

II 

4002 

4002 (turn on high-speed punch instead 
of low-speed punch) 

III 

6002 

6003 
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/MODI FI CATIONS TO PAL III AND EDITOR FOR PttLEDCO 

/EDITOR IN UPPER? PAL IN LOWER 

CDF= 6201 

ClFs6202 

RDF=62 1 A 

RIF=6224 

RMF= 6244 

RIB= 6234 

FIXTAB 

/ 

/EDITOR MODIFICATIONS 




FIELD 

1 


0000 

0001 

0000 

7730 

*0 

0000 

7730 

/BIT 

/TOP 

0 & 1 SR OPTIONS 

OF TEXT STORAGE 

0172 

11 56 

*172 

1156 


/PNTR TO MIDDLE 


/OF HI-SPEED 
/PUNCH ROUTINE 





*1104 


• 

1 104 

1000 


TAD 0 /GET 

SR 

OPTION 




*1154 



1154 

5755 


JMP I PALIII 



1 155 

7731 

PALI 11* 

7731 






*1445 



1445 

1000 


TAD 0 /GET 

SR 

OPTION 




*7731 



7731 

3343 


DCA SAVE 



7732 

7404 


OSR 



7733 

0342 


AND MASK 



7734 

7640 


SZA CLA 



7735 

5344 


JMP PALIN 



7736 

1343 


TAD SAVE 



7737 

6021 


6021 


/CHECK FLAG 

7740 

5337 


JMP .-1 



7741 

5572 


JMP Z I 172 


/TO PUNCH 

7742 

7000 

MASK* 

7000 



7743 

0000 

SAVE* 

0 
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7744 

1343 

PALIN* 

TAD 

SAVE 

7745 

7000 


NOP 


7746 

3371 


DCA 

ASCII 

7747 

1376 


TAD 

STARTF 

7750 

7650 


SNA 

CL A 

775! 

5355 


JMP 

SETPAL 

7752 

1371 

PALOUT* 

TAD 

ASCII 

7753 

6203 


Cl F 

CDF 00 

7754 

5774 


JMP 

I PAL 

7755 

2376 

SETPAL* 

ISZ 

STARTF 

7756 

6203 


Cl F 

CDF 00 

7757 

5775 


JMP 

I START 

7760 

1372 

CHAR* 

TAD 

Cl FLAG 

7761 

7 640 


SZA 

CL A 

7762 

5773 


JMP 

I EDITR 

7763 

2372 


ISZ 

C1 FLAG 

7764 

5352 


JMP 

PALOUT 

7765 

7300 

CLEAR* 

CLL 

CLA 

7766 

3372 


DCA 

Cl FLAG 

7767' 

3376 


DCA 

STARTF 

7770 

5177 


JMP 

1 77 

7771 

0000 

ASCII* 

0 


7772 

0000 

Cl FLAG* 

0 


7773 

1 1 57 

EDITR, 

1157 


7774 

1 404 

PAL* 

1 404 


7775 

0200 

START* 

200 


7776 

0000 

STARTF* 

0 


7777 

5365 

ENTER* 

JMP 

CLEAR 


/ 


/PAL III MODIFICATIONS 





FIELD 0 

0241 

0242 

5642 

7600 

PASS* 

*241 

JMP I PASS 
7600 

1401 

1 402 

1 403 

6213 

5603 

7760 

EDIT* 

*1401 

ClF CDF 10 
JMP I EDIT 
7760 

7600 

7 601 

7 602 

6213 

5602 

7765 

PASSD* 

PCLEAR* 

*7600 

ClF CDF 10 
JMP I PCLEAR 
7765 





•ascii 

7771 

char 

7760 

clear 

7765 

Cl FLAG 

7772 

feDIT 

1403 

EDI TR 

7773 

EtfTER 

7777 

MASK 

7742 

PAL 

7774 

PALI 11 

1155 

PALIM 

7 7 44 

PALO'JT 

7752 

PASS 

0242 

PASSD 

7 600 

PCLEAR 

7 602 

SAVE 

7743 

SETPAL 

7755 

START 

7775 

STARIF 

7776 
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